knitr::include_graphics("Datacomic_chicago_crimes.jpg")

chic_crime <- read.csv("Crimes_-_2001_to_Present.csv",
stringsAsFactors = TRUE)
Let’s Map the crime incidents. Zoom in to check the primary
types…
crime_clean_2021 %>% filter(crime_clean_2021$Longitude > -89) %>%
leaflet() %>%
addProviderTiles(providers$CartoDB.DarkMatter, group = "Dark") %>%
addProviderTiles(providers$Esri.WorldGrayCanvas, group = "Grey") %>%
addLayersControl(baseGroups = c("Dark", "Grey")) %>%
addMarkers(label = crime_clean_2021$`Primary Type`, clusterOptions = markerClusterOptions())